home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / m56000_1.arc / FFTLIB.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-01-23  |  55.2 KB  |  1,322 lines
  1. sin64   macro   twiddle
  2. ; 64 point fft cosine table
  3.       org     x:twiddle
  4.       dc       8388607    ; 1    0 
  5.       dc       8348214    ; .9951848    1 
  6.       dc       8227423    ; .9807854    2 
  7.       dc       8027397    ; .9569404    3 
  8.       dc       7750063    ; .9238796    4 
  9.       dc       7398091    ; .8819213    5 
  10.       dc       6974872    ; .8314696    6 
  11.       dc       6484481    ; .7730105    7 
  12.       dc       5931641    ; .7071068    8 
  13.       dc       5321677    ; .6343933    9 
  14.       dc       4660460    ; .5555702    10 
  15.       dc       3954363    ; .4713968    11 
  16.       dc       3210181    ; .3826835    12 
  17.       dc       2435084    ; .2902846    13 
  18.       dc       1636535    ; .1950902    14 
  19.       dc       822227    ; 9.801713E-02    15 
  20.       dc       0    ;-4.371139E-08    16 
  21.       dc      -822228    ;-9.801722E-02    17 
  22.       dc      -1636536    ;-.1950903    18 
  23.       dc      -2435084    ;-.2902847    19 
  24.       dc      -3210182    ;-.3826836    20 
  25.       dc      -3954363    ;-.4713969    21 
  26.       dc      -4660459    ;-.5555701    22 
  27.       dc      -5321676    ;-.6343933    23 
  28.       dc      -5931641    ;-.7071068    24 
  29.       dc      -6484481    ;-.7730105    25 
  30.       dc      -6974872    ;-.8314696    26 
  31.       dc      -7398091    ;-.8819214    27 
  32.       dc      -7750063    ;-.9238797    28 
  33.       dc      -8027396    ;-.9569404    29 
  34.       dc      -8227423    ;-.9807854    30 
  35.       dc      -8348214    ;-.9951848    31 
  36. ; 64 point fft sine table
  37.       org     y:twiddle
  38.       dc       0    ; 0    0 
  39.       dc      -822227    ;-9.801714E-02    1 
  40.       dc      -1636536    ;-.1950903    2 
  41.       dc      -2435084    ;-.2902847    3 
  42.       dc      -3210181    ;-.3826835    4 
  43.       dc      -3954362    ;-.4713968    5 
  44.       dc      -4660460    ;-.5555703    6 
  45.       dc      -5321676    ;-.6343933    7 
  46.       dc      -5931641    ;-.7071068    8 
  47.       dc      -6484481    ;-.7730105    9 
  48.       dc      -6974871    ;-.8314696    10 
  49.       dc      -7398091    ;-.8819213    11 
  50.       dc      -7750062    ;-.9238796    12 
  51.       dc      -8027396    ;-.9569404    13 
  52.       dc      -8227422    ;-.9807853    14 
  53.       dc      -8348213    ;-.9951848    15 
  54.       dc      -8388607    ;-1    16 
  55.       dc      -8348214    ;-.9951848    17 
  56.       dc      -8227423    ;-.9807854    18 
  57.       dc      -8027396    ;-.9569404    19 
  58.       dc      -7750062    ;-.9238795    20 
  59.       dc      -7398091    ;-.8819213    21 
  60.       dc      -6974872    ;-.8314696    22 
  61.       dc      -6484481    ;-.7730105    23 
  62.       dc      -5931641    ;-.7071068    24 
  63.       dc      -5321676    ;-.6343933    25 
  64.       dc      -4660459    ;-.5555701    26 
  65.       dc      -3954361    ;-.4713966    27 
  66.       dc      -3210180    ;-.3826833    28 
  67.       dc      -2435084    ;-.2902847    29 
  68.       dc      -1636536    ;-.1950903    30 
  69.       dc      -822227    ;-9.801709E-02    31 
  70.       endm
  71. sin16   macro   twiddle
  72. ; 16 point fft cosine table
  73.       org     x:twiddle
  74.       dc       8388607    ; 1    0 
  75.       dc       7750063    ; .9238796    1 
  76.       dc       5931641    ; .7071068    2 
  77.       dc       3210181    ; .3826835    3 
  78.       dc       0    ;-4.371139E-08    4 
  79.       dc      -3210182    ;-.3826836    5 
  80.       dc      -5931641    ;-.7071068    6 
  81.       dc      -7750063    ;-.9238797    7 
  82. ; 16 point fft sine table
  83.       org     y:twiddle
  84.       dc       0    ; 0    0 
  85.       dc      -3210181    ;-.3826835    1 
  86.       dc      -5931641    ;-.7071068    2 
  87.       dc      -7750062    ;-.9238796    3 
  88.       dc      -8388607    ;-1    4 
  89.       dc      -7750062    ;-.9238795    5 
  90.       dc      -5931641    ;-.7071068    6 
  91.       dc      -3210180    ;-.3826833    7 
  92.       endm
  93. sin1024   macro   twiddle
  94. ; 1024 point fft cosine table
  95.       org     x:twiddle
  96.       dc       8388607    ; 1    0 
  97.       dc       8388449    ; .9999812    1 
  98.       dc       8387976    ; .9999248    2 
  99.       dc       8387186    ; .9998306    3 
  100.       dc       8386081    ; .9996988    4 
  101.       dc       8384660    ; .9995295    5 
  102.       dc       8382923    ; .9993224    6 
  103.       dc       8380870    ; .9990777    7 
  104.       dc       8378503    ; .9987954    8 
  105.       dc       8375819    ; .9984756    9 
  106.       dc       8372821    ; .9981181    10 
  107.       dc       8369507    ; .9977231    11 
  108.       dc       8365879    ; .9972906    12 
  109.       dc       8361935    ; .9968204    13 
  110.       dc       8357675    ; .9963126    14 
  111.       dc       8353102    ; .9957675    15 
  112.       dc       8348214    ; .9951848    16 
  113.       dc       8343011    ; .9945646    17 
  114.       dc       8337495    ; .993907    18 
  115.       dc       8331665    ; .9932119    19 
  116.       dc       8325521    ; .9924796    20 
  117.       dc       8319063    ; .9917097    21 
  118.       dc       8312293    ; .9909027    22 
  119.       dc       8305210    ; .9900582    23 
  120.       dc       8297814    ; .9891766    24 
  121.       dc       8290105    ; .9882576    25 
  122.       dc       8282084    ; .9873014    26 
  123.       dc       8273751    ; .9863081    27 
  124.       dc       8265108    ; .9852777    28 
  125.       dc       8256152    ; .9842101    29 
  126.       dc       8246886    ; .9831055    30 
  127.       dc       8237309    ; .9819639    31 
  128.       dc       8227423    ; .9807854    32 
  129.       dc       8217226    ; .9795698    33 
  130.       dc       8206721    ; .9783174    34 
  131.       dc       8195906    ; .9770282    35 
  132.       dc       8184782    ; .9757022    36 
  133.       dc       8173351    ; .9743395    37 
  134.       dc       8161611    ; .9729399    38 
  135.       dc       8149565    ; .9715039    39 
  136.       dc       8137212    ; .9700314    40 
  137.       dc       8124552    ; .9685221    41 
  138.       dc       8111586    ; .9669764    42 
  139.       dc       8098315    ; .9653944    43 
  140.       dc       8084739    ; .9637761    44 
  141.       dc       8070859    ; .9621214    45 
  142.       dc       8056675    ; .9604306    46 
  143.       dc       8042187    ; .9587034    47 
  144.       dc       8027397    ; .9569404    48 
  145.       dc       8012305    ; .9551412    49 
  146.       dc       7996910    ; .9533061    50 
  147.       dc       7981215    ; .951435    51 
  148.       dc       7965219    ; .9495282    52 
  149.       dc       7948923    ; .9475856    53 
  150.       dc       7932329    ; .9456074    54 
  151.       dc       7915435    ; .9435934    55 
  152.       dc       7898244    ; .9415441    56 
  153.       dc       7880754    ; .9394592    57 
  154.       dc       7862969    ; .9373391    58 
  155.       dc       7844887    ; .9351835    59 
  156.       dc       7826510    ; .9329928    60 
  157.       dc       7807839    ; .930767    61 
  158.       dc       7788873    ; .9285061    62 
  159.       dc       7769614    ; .9262102    63 
  160.       dc       7750063    ; .9238796    64 
  161.       dc       7730220    ; .9215141    65 
  162.       dc       7710086    ; .9191139    66 
  163.       dc       7689661    ; .9166791    67 
  164.       dc       7668947    ; .9142098    68 
  165.       dc       7647944    ; .9117061    69 
  166.       dc       7626653    ; .909168    70 
  167.       dc       7605075    ; .9065957    71 
  168.       dc       7583211    ; .9039893    72 
  169.       dc       7561062    ; .9013489    73 
  170.       dc       7538627    ; .8986744    74 
  171.       dc       7515909    ; .8959663    75 
  172.       dc       7492908    ; .8932244    76 
  173.       dc       7469624    ; .8904487    77 
  174.       dc       7446060    ; .8876396    78 
  175.       dc       7422216    ; .8847971    79 
  176.       dc       7398091    ; .8819213    80 
  177.       dc       7373688    ; .8790122    81 
  178.       dc       7349008    ; .8760701    82 
  179.       dc       7324051    ; .873095    83 
  180.       dc       7298818    ; .8700869    84 
  181.       dc       7273311    ; .8670463    85 
  182.       dc       7247529    ; .8639728    86 
  183.       dc       7221475    ; .8608669    87 
  184.       dc       7195148    ; .8577286    88 
  185.       dc       7168551    ; .854558    89 
  186.       dc       7141684    ; .8513552    90 
  187.       dc       7114548    ; .8481203    91 
  188.       dc       7087145    ; .8448536    92 
  189.       dc       7059474    ; .841555    93 
  190.       dc       7031538    ; .8382247    94 
  191.       dc       7003337    ; .8348629    95 
  192.       dc       6974872    ; .8314696    96 
  193.       dc       6946145    ; .8280451    97 
  194.       dc       6917156    ; .8245893    98 
  195.       dc       6887906    ; .8211025    99 
  196.       dc       6858398    ; .8175848    100 
  197.       dc       6828631    ; .8140363    101 
  198.       dc       6798607    ; .8104573    102 
  199.       dc       6768327    ; .8068476    103 
  200.       dc       6737792    ; .8032075    104 
  201.       dc       6707004    ; .7995373    105 
  202.       dc       6675963    ; .795837    106 
  203.       dc       6644671    ; .7921066    107 
  204.       dc       6613128    ; .7883465    108 
  205.       dc       6581337    ; .7845566    109 
  206.       dc       6549298    ; .7807373    110 
  207.       dc       6517012    ; .7768885    111 
  208.       dc       6484481    ; .7730105    112 
  209.       dc       6451706    ; .7691034    113 
  210.       dc       6418688    ; .7651673    114 
  211.       dc       6385428    ; .7612024    115 
  212.       dc       6351928    ; .7572089    116 
  213.       dc       6318188    ; .7531868    117 
  214.       dc       6284211    ; .7491364    118 
  215.       dc       6249997    ; .7450578    119 
  216.       dc       6215548    ; .7409511    120 
  217.       dc       6180865    ; .7368166    121 
  218.       dc       6145949    ; .7326543    122 
  219.       dc       6110802    ; .7284645    123 
  220.       dc       6075424    ; .7242471    124 
  221.       dc       6039818    ; .7200026    125 
  222.       dc       6003985    ; .7157309    126 
  223.       dc       5967925    ; .7114322    127 
  224.       dc       5931641    ; .7071068    128 
  225.       dc       5895133    ; .7027548    129 
  226.       dc       5858404    ; .6983763    130 
  227.       dc       5821454    ; .6939715    131 
  228.       dc       5784284    ; .6895405    132 
  229.       dc       5746898    ; .6850837    133 
  230.       dc       5709295    ; .680601    134 
  231.       dc       5671476    ; .6760927    135 
  232.       dc       5633444    ; .671559    136 
  233.       dc       5595201    ; .667    137 
  234.       dc       5556746    ; .6624158    138 
  235.       dc       5518082    ; .6578067    139 
  236.       dc       5479210    ; .6531728    140 
  237.       dc       5440133    ; .6485145    141 
  238.       dc       5400850    ; .6438315    142 
  239.       dc       5361364    ; .6391244    143 
  240.       dc       5321677    ; .6343933    144 
  241.       dc       5281788    ; .6296383    145 
  242.       dc       5241701    ; .6248595    146 
  243.       dc       5201416    ; .6200572    147 
  244.       dc       5160937    ; .6152316    148 
  245.       dc       5120262    ; .6103828    149 
  246.       dc       5079394    ; .605511    150 
  247.       dc       5038336    ; .6006165    151 
  248.       dc       4997088    ; .5956993    152 
  249.       dc       4955651    ; .5907597    153 
  250.       dc       4914028    ; .5857979    154 
  251.       dc       4872220    ; .580814    155 
  252.       dc       4830229    ; .5758082    156 
  253.       dc       4788056    ; .5707808    157 
  254.       dc       4745702    ; .5657318    158 
  255.       dc       4703170    ; .5606616    159 
  256.       dc       4660460    ; .5555702    160 
  257.       dc       4617576    ; .550458    161 
  258.       dc       4574517    ; .545325    162 
  259.       dc       4531287    ; .5401716    163 
  260.       dc       4487885    ; .5349976    164 
  261.       dc       4444315    ; .5298036    165 
  262.       dc       4400577    ; .5245897    166 
  263.       dc       4356673    ; .519356    167 
  264.       dc       4312606    ; .5141028    168 
  265.       dc       4268376    ; .5088301    169 
  266.       dc       4223986    ; .5035385    170 
  267.       dc       4179436    ; .4982277    171 
  268.       dc       4134730    ; .4928983    172 
  269.       dc       4089866    ; .4875501    173 
  270.       dc       4044850    ; .4821838    174 
  271.       dc       3999681    ; .4767992    175 
  272.       dc       3954363    ; .4713968    176 
  273.       dc       3908894    ; .4659766    177 
  274.       dc       3863278    ; .4605387    178 
  275.       dc       3817518    ; .4550836    179 
  276.       dc       3771613    ; .4496113    180 
  277.       dc       3725566    ; .4441221    181 
  278.       dc       3679379    ; .4386162    182 
  279.       dc       3633053    ; .4330938    183 
  280.       dc       3586592    ; .4275551    184 
  281.       dc       3539995    ; .4220003    185 
  282.       dc       3493264    ; .4164296    186 
  283.       dc       3446402    ; .4108432    187 
  284.       dc       3399410    ; .4052413    188 
  285.       dc       3352290    ; .3996242    189 
  286.       dc       3305045    ; .3939921    190 
  287.       dc       3257674    ; .3883451    191 
  288.       dc       3210181    ; .3826835    192 
  289.       dc       3162567    ; .3770074    193 
  290.       dc       3114834    ; .3713172    194 
  291.       dc       3066984    ; .365613    195 
  292.       dc       3019018    ; .359895    196 
  293.       dc       2970938    ; .3541635    197 
  294.       dc       2922748    ; .3484187    198 
  295.       dc       2874446    ; .3426607    199 
  296.       dc       2826037    ; .3368898    200 
  297.       dc       2777521    ; .3311063    201 
  298.       dc       2728900    ; .3253103    202 
  299.       dc       2680177    ; .319502    203 
  300.       dc       2631353    ; .3136818    204 
  301.       dc       2582430    ; .3078497    205 
  302.       dc       2533409    ; .302006    206 
  303.       dc       2484294    ; .2961509    207 
  304.       dc       2435084    ; .2902846    208 
  305.       dc       2385783    ; .2844075    209 
  306.       dc       2336392    ; .2785196    210 
  307.       dc       2286913    ; .2726213    211 
  308.       dc       2237349    ; .2667128    212 
  309.       dc       2187699    ; .2607941    213 
  310.       dc       2137968    ; .2548657    214 
  311.       dc       2088156    ; .2489276    215 
  312.       dc       2038265    ; .2429801    216 
  313.       dc       1988297    ; .2370235    217 
  314.       dc       1938256    ; .2310581    218 
  315.       dc       1888141    ; .2250839    219 
  316.       dc       1837954    ; .2191012    220 
  317.       dc       1787699    ; .2131103    221 
  318.       dc       1737376    ; .2071113    222 
  319.       dc       1686987    ; .2011046    223 
  320.       dc       1636535    ; .1950902    224 
  321.       dc       1586023    ; .1890687    225 
  322.       dc       1535450    ; .1830399    226 
  323.       dc       1484819    ; .1770042    227 
  324.       dc       1434132    ; .1709619    228 
  325.       dc       1383391    ; .1649131    229 
  326.       dc       1332598    ; .1588581    230 
  327.       dc       1281756    ; .1527972    231 
  328.       dc       1230864    ; .1467305    232 
  329.       dc       1179927    ; .1406583    233 
  330.       dc       1128945    ; .1345807    234 
  331.       dc       1077920    ; .1284981    235 
  332.       dc       1026855    ; .1224106    236 
  333.       dc       975751    ; .1163186    237 
  334.       dc       924610    ; .1102221    238 
  335.       dc       873436    ; .1041216    239 
  336.       dc       822227    ; 9.801713E-02    240 
  337.       dc       770988    ; 9.190893E-02    241 
  338.       dc       719720    ; 8.579728E-02    242 
  339.       dc       668424    ; 7.968238E-02    243 
  340.       dc       617104    ; .0735645    244 
  341.       dc       565761    ; 6.744395E-02    245 
  342.       dc       514396    ; 6.132075E-02    246 
  343.       dc       463011    ; 5.519524E-02    247 
  344.       dc       411609    ; 4.906766E-02    248 
  345.       dc       360192    ; 4.293822E-02    249 
  346.       dc       308761    ; 3.680717E-02    250 
  347.       dc       257318    ; 3.067473E-02    251 
  348.       dc       205866    ; 2.454114E-02    252 
  349.       dc       154407    ; 1.840674E-02    253 
  350.       dc       102941    ; 1.227153E-02    254 
  351.       dc       51471    ; 6.135858E-03    255 
  352.       dc       0    ;-4.371139E-08    256 
  353.       dc      -51472    ;-6.135946E-03    257 
  354.       dc      -102942    ;-1.227162E-02    258 
  355.       dc      -154407    ;-1.840671E-02    259 
  356.       dc      -205867    ;-2.454122E-02    260 
  357.       dc      -257319    ;-3.067482E-02    261 
  358.       dc      -308762    ;-3.680725E-02    262 
  359.       dc      -360193    ;-4.293831E-02    263 
  360.       dc      -411610    ;-4.906774E-02    264 
  361.       dc      -463012    ;-5.519533E-02    265 
  362.       dc      -514396    ;-6.132084E-02    266 
  363.       dc      -565760    ;-6.744391E-02    267 
  364.       dc      -617104    ;-7.356458E-02    268 
  365.       dc      -668425    ;-7.968247E-02    269 
  366.       dc      -719720    ;-8.579736E-02    270 
  367.       dc      -770989    ;-9.190902E-02    271 
  368.       dc      -822228    ;-9.801722E-02    272 
  369.       dc      -873435    ;-.1041216    273 
  370.       dc      -924611    ;-.1102222    274 
  371.       dc      -975751    ;-.1163186    275 
  372.       dc      -1026855    ;-.1224107    276 
  373.       dc      -1077921    ;-.1284982    277 
  374.       dc      -1128945    ;-.1345808    278 
  375.       dc      -1179927    ;-.1406583    279 
  376.       dc      -1230865    ;-.1467306    280 
  377.       dc      -1281755    ;-.1527972    281 
  378.       dc      -1332599    ;-.1588582    282 
  379.       dc      -1383392    ;-.1649132    283 
  380.       dc      -1434133    ;-.170962    284 
  381.       dc      -1484819    ;-.1770043    285 
  382.       dc      -1535450    ;-.18304    286 
  383.       dc      -1586023    ;-.1890687    287 
  384.       dc      -1636536    ;-.1950903    288 
  385.       dc      -1686988    ;-.2011047    289 
  386.       dc      -1737376    ;-.2071114    290 
  387.       dc      -1787699    ;-.2131104    291 
  388.       dc      -1837955    ;-.2191013    292 
  389.       dc      -1888141    ;-.225084    293 
  390.       dc      -1938257    ;-.2310582    294 
  391.       dc      -1988298    ;-.2370236    295 
  392.       dc      -2038265    ;-.2429802    296 
  393.       dc      -2088156    ;-.2489277    297 
  394.       dc      -2137968    ;-.2548657    298 
  395.       dc      -2187700    ;-.2607942    299 
  396.       dc      -2237349    ;-.2667129    300 
  397.       dc      -2286913    ;-.2726214    301 
  398.       dc      -2336392    ;-.2785197    302 
  399.       dc      -2385783    ;-.2844076    303 
  400.       dc      -2435084    ;-.2902847    304 
  401.       dc      -2484294    ;-.296151    305 
  402.       dc      -2533410    ;-.302006    306 
  403.       dc      -2582430    ;-.3078497    307 
  404.       dc      -2631353    ;-.3136818    308 
  405.       dc      -2680177    ;-.3195021    309 
  406.       dc      -2728900    ;-.3253103    310 
  407.       dc      -2777521    ;-.3311064    311 
  408.       dc      -2826037    ;-.3368899    312 
  409.       dc      -2874447    ;-.3426608    313 
  410.       dc      -2922747    ;-.3484187    314 
  411.       dc      -2970938    ;-.3541635    315 
  412.       dc      -3019018    ;-.3598951    316 
  413.       dc      -3066984    ;-.3656131    317 
  414.       dc      -3114834    ;-.3713173    318 
  415.       dc      -3162567    ;-.3770075    319 
  416.       dc      -3210182    ;-.3826836    320 
  417.       dc      -3257675    ;-.3883452    321 
  418.       dc      -3305044    ;-.3939921    322 
  419.       dc      -3352290    ;-.3996242    323 
  420.       dc      -3399410    ;-.4052414    324 
  421.       dc      -3446402    ;-.4108432    325 
  422.       dc      -3493263    ;-.4164295    326 
  423.       dc      -3539994    ;-.4220003    327 
  424.       dc      -3586592    ;-.4275551    328 
  425.       dc      -3633054    ;-.4330938    329 
  426.       dc      -3679379    ;-.4386163    330 
  427.       dc      -3725566    ;-.4441222    331 
  428.       dc      -3771613    ;-.4496114    332 
  429.       dc      -3817518    ;-.4550837    333 
  430.       dc      -3863279    ;-.4605388    334 
  431.       dc      -3908894    ;-.4659766    335 
  432.       dc      -3954363    ;-.4713969    336 
  433.       dc      -3999682    ;-.4767994    337 
  434.       dc      -4044851    ;-.482184    338 
  435.       dc      -4089868    ;-.4875503    339 
  436.       dc      -4134729    ;-.4928982    340 
  437.       dc      -4179436    ;-.4982277    341 
  438.       dc      -4223986    ;-.5035385    342 
  439.       dc      -4268376    ;-.5088302    343 
  440.       dc      -4312606    ;-.5141028    344 
  441.       dc      -4356673    ;-.519356    345 
  442.       dc      -4400577    ;-.5245898    346 
  443.       dc      -4444315    ;-.5298037    347 
  444.       dc      -4487885    ;-.5349977    348 
  445.       dc      -4531287    ;-.5401716    349 
  446.       dc      -4574518    ;-.5453252    350 
  447.       dc      -4617577    ;-.5504581    351 
  448.       dc      -4660459    ;-.5555701    352 
  449.       dc      -4703169    ;-.5606616    353 
  450.       dc      -4745702    ;-.5657318    354 
  451.       dc      -4788055    ;-.5707808    355 
  452.       dc      -4830228    ;-.5758082    356 
  453.       dc      -4872220    ;-.580814    357 
  454.       dc      -4914028    ;-.5857979    358 
  455.       dc      -4955651    ;-.5907598    359 
  456.       dc      -4997087    ;-.5956993    360 
  457.       dc      -5038336    ;-.6006166    361 
  458.       dc      -5079395    ;-.6055111    362 
  459.       dc      -5120263    ;-.610383    363 
  460.       dc      -5160937    ;-.6152317    364 
  461.       dc      -5201417    ;-.6200574    365 
  462.       dc      -5241702    ;-.6248596    366 
  463.       dc      -5281787    ;-.6296382    367 
  464.       dc      -5321676    ;-.6343933    368 
  465.       dc      -5361364    ;-.6391245    369 
  466.       dc      -5400850    ;-.6438316    370 
  467.       dc      -5440133    ;-.6485145    371 
  468.       dc      -5479211    ;-.653173    372 
  469.       dc      -5518082    ;-.6578068    373 
  470.       dc      -5556746    ;-.6624159    374 
  471.       dc      -5595201    ;-.6670001    375 
  472.       dc      -5633445    ;-.6715591    376 
  473.       dc      -5671477    ;-.6760928    377 
  474.       dc      -5709295    ;-.6806011    378 
  475.       dc      -5746897    ;-.6850836    379 
  476.       dc      -5784284    ;-.6895405    380 
  477.       dc      -5821454    ;-.6939715    381 
  478.       dc      -5858404    ;-.6983763    382 
  479.       dc      -5895133    ;-.7027548    383 
  480.       dc      -5931641    ;-.7071068    384 
  481.       dc      -5967925    ;-.7114322    385 
  482.       dc      -6003985    ;-.7157309    386 
  483.       dc      -6039819    ;-.7200026    387 
  484.       dc      -6075425    ;-.7242472    388 
  485.       dc      -6110802    ;-.7284645    389 
  486.       dc      -6145950    ;-.7326544    390 
  487.       dc      -6180865    ;-.7368166    391 
  488.       dc      -6215549    ;-.7409513    392 
  489.       dc      -6249998    ;-.745058    393 
  490.       dc      -6284212    ;-.7491366    394 
  491.       dc      -6318188    ;-.7531868    395 
  492.       dc      -6351927    ;-.7572089    396 
  493.       dc      -6385427    ;-.7612024    397 
  494.       dc      -6418687    ;-.7651673    398 
  495.       dc      -6451705    ;-.7691034    399 
  496.       dc      -6484481    ;-.7730105    400 
  497.       dc      -6517012    ;-.7768885    401 
  498.       dc      -6549298    ;-.7807373    402 
  499.       dc      -6581337    ;-.7845566    403 
  500.       dc      -6613129    ;-.7883465    404 
  501.       dc      -6644671    ;-.7921066    405 
  502.       dc      -6675963    ;-.795837    406 
  503.       dc      -6707003    ;-.7995373    407 
  504.       dc      -6737792    ;-.8032075    408 
  505.       dc      -6768327    ;-.8068476    409 
  506.       dc      -6798607    ;-.8104573    410 
  507.       dc      -6828630    ;-.8140363    411 
  508.       dc      -6858397    ;-.8175848    412 
  509.       dc      -6887906    ;-.8211025    413 
  510.       dc      -6917155    ;-.8245893    414 
  511.       dc      -6946145    ;-.8280451    415 
  512.       dc      -6974872    ;-.8314696    416 
  513.       dc      -7003337    ;-.834863    417 
  514.       dc      -7031538    ;-.8382248    418 
  515.       dc      -7059474    ;-.841555    419 
  516.       dc      -7087145    ;-.8448537    420 
  517.       dc      -7114549    ;-.8481204    421 
  518.       dc      -7141684    ;-.8513552    422 
  519.       dc      -7168551    ;-.854558    423 
  520.       dc      -7195148    ;-.8577286    424 
  521.       dc      -7221474    ;-.8608669    425 
  522.       dc      -7247528    ;-.8639728    426 
  523.       dc      -7273310    ;-.8670463    427 
  524.       dc      -7298818    ;-.870087    428 
  525.       dc      -7324051    ;-.8730951    429 
  526.       dc      -7349008    ;-.8760701    430 
  527.       dc      -7373689    ;-.8790124    431 
  528.       dc      -7398091    ;-.8819214    432 
  529.       dc      -7422216    ;-.8847972    433 
  530.       dc      -7446061    ;-.8876398    434 
  531.       dc      -7469624    ;-.8904487    435 
  532.       dc      -7492908    ;-.8932244    436 
  533.       dc      -7515909    ;-.8959663    437 
  534.       dc      -7538626    ;-.8986744    438 
  535.       dc      -7561061    ;-.9013489    439 
  536.       dc      -7583211    ;-.9039893    440 
  537.       dc      -7605075    ;-.9065957    441 
  538.       dc      -7626653    ;-.9091681    442 
  539.       dc      -7647944    ;-.9117061    443 
  540.       dc      -7668947    ;-.9142098    444 
  541.       dc      -7689661    ;-.9166791    445 
  542.       dc      -7710085    ;-.9191139    446 
  543.       dc      -7730220    ;-.9215141    447 
  544.       dc      -7750063    ;-.9238797    448 
  545.       dc      -7769615    ;-.9262104    449 
  546.       dc      -7788873    ;-.9285061    450 
  547.       dc      -7807838    ;-.930767    451 
  548.       dc      -7826510    ;-.9329928    452 
  549.       dc      -7844887    ;-.9351835    453 
  550.       dc      -7862969    ;-.9373391    454 
  551.       dc      -7880755    ;-.9394593    455 
  552.       dc      -7898243    ;-.9415441    456 
  553.       dc      -7915435    ;-.9435936    457 
  554.       dc      -7932329    ;-.9456074    458 
  555.       dc      -7948923    ;-.9475856    459 
  556.       dc      -7965219    ;-.9495282    460 
  557.       dc      -7981215    ;-.9514351    461 
  558.       dc      -7996910    ;-.9533061    462 
  559.       dc      -8012303    ;-.9551411    463 
  560.       dc      -8027396    ;-.9569404    464 
  561.       dc      -8042186    ;-.9587034    465 
  562.       dc      -8056674    ;-.9604306    466 
  563.       dc      -8070858    ;-.9621214    467 
  564.       dc      -8084739    ;-.9637761    468 
  565.       dc      -8098314    ;-.9653944    469 
  566.       dc      -8111586    ;-.9669765    470 
  567.       dc      -8124551    ;-.9685221    471 
  568.       dc      -8137211    ;-.9700313    472 
  569.       dc      -8149565    ;-.971504    473 
  570.       dc      -8161612    ;-.9729401    474 
  571.       dc      -8173350    ;-.9743394    475 
  572.       dc      -8184782    ;-.9757022    476 
  573.       dc      -8195906    ;-.9770282    477 
  574.       dc      -8206720    ;-.9783174    478 
  575.       dc      -8217226    ;-.9795698    479 
  576.       dc      -8227423    ;-.9807854    480 
  577.       dc      -8237309    ;-.9819639    481 
  578.       dc      -8246885    ;-.9831055    482 
  579.       dc      -8256152    ;-.9842101    483 
  580.       dc      -8265107    ;-.9852777    484 
  581.       dc      -8273751    ;-.9863082    485 
  582.       dc      -8282084    ;-.9873015    486 
  583.       dc      -8290105    ;-.9882576    487 
  584.       dc      -8297813    ;-.9891766    488 
  585.       dc      -8305209    ;-.9900582    489 
  586.       dc      -8312292    ;-.9909026    490 
  587.       dc      -8319063    ;-.9917097    491 
  588.       dc      -8325521    ;-.9924796    492 
  589.       dc      -8331664    ;-.9932119    493 
  590.       dc      -8337495    ;-.993907    494 
  591.       dc      -8343011    ;-.9945646    495 
  592.       dc      -8348214    ;-.9951848    496 
  593.       dc      -8353102    ;-.9957675    497 
  594.       dc      -8357675    ;-.9963127    498 
  595.       dc      -8361934    ;-.9968203    499 
  596.       dc      -8365878    ;-.9972905    500 
  597.       dc      -8369507    ;-.9977232    501 
  598.       dc      -8372821    ;-.9981182    502 
  599.       dc      -8375819    ;-.9984756    503 
  600.       dc      -8378502    ;-.9987954    504 
  601.       dc      -8380871    ;-.9990778    505 
  602.       dc      -8382923    ;-.9993224    506 
  603.       dc      -8384660    ;-.9995295    507 
  604.       dc      -8386080    ;-.9996988    508 
  605.       dc      -8387186    ;-.9998306    509 
  606.       dc      -8387975    ;-.9999248    510 
  607.       dc      -8388449    ;-.9999812    511 
  608. ; 1024 point fft sine table
  609.       org     y:twiddle
  610.       dc       0    ; 0    0 
  611.       dc      -51472    ;-6.135885E-03    1 
  612.       dc      -102941    ;-1.227154E-02    2 
  613.       dc      -154407    ;-1.840673E-02    3 
  614.       dc      -205867    ;-2.454123E-02    4 
  615.       dc      -257319    ;-3.067481E-02    5 
  616.       dc      -308761    ;-3.680723E-02    6 
  617.       dc      -360192    ;-4.293826E-02    7 
  618.       dc      -411609    ;-4.906768E-02    8 
  619.       dc      -463011    ;-5.519524E-02    9 
  620.       dc      -514396    ;-6.132074E-02    10 
  621.       dc      -565761    ;-6.744393E-02    11 
  622.       dc      -617104    ;-7.356457E-02    12 
  623.       dc      -668425    ;-7.968244E-02    13 
  624.       dc      -719720    ;-8.579732E-02    14 
  625.       dc      -770988    ;-9.190896E-02    15 
  626.       dc      -822227    ;-9.801714E-02    16 
  627.       dc      -873435    ;-.1041216    17 
  628.       dc      -924611    ;-.1102222    18 
  629.       dc      -975751    ;-.1163186    19 
  630.       dc      -1026855    ;-.1224107    20 
  631.       dc      -1077920    ;-.1284981    21 
  632.       dc      -1128945    ;-.1345807    22 
  633.       dc      -1179927    ;-.1406583    23 
  634.       dc      -1230864    ;-.1467305    24 
  635.       dc      -1281755    ;-.1527972    25 
  636.       dc      -1332599    ;-.1588582    26 
  637.       dc      -1383391    ;-.1649131    27 
  638.       dc      -1434132    ;-.1709619    28 
  639.       dc      -1484819    ;-.1770042    29 
  640.       dc      -1535450    ;-.1830399    30 
  641.       dc      -1586023    ;-.1890687    31 
  642.       dc      -1636536    ;-.1950903    32 
  643.       dc      -1686988    ;-.2011046    33 
  644.       dc      -1737376    ;-.2071114    34 
  645.       dc      -1787699    ;-.2131104    35 
  646.       dc      -1837954    ;-.2191012    36 
  647.       dc      -1888140    ;-.2250839    37 
  648.       dc      -1938256    ;-.2310581    38 
  649.       dc      -1988298    ;-.2370236    39 
  650.       dc      -2038265    ;-.2429802    40 
  651.       dc      -2088156    ;-.2489276    41 
  652.       dc      -2137968    ;-.2548657    42 
  653.       dc      -2187699    ;-.2607941    43 
  654.       dc      -2237348    ;-.2667128    44 
  655.       dc      -2286913    ;-.2726214    45 
  656.       dc      -2336392    ;-.2785197    46 
  657.       dc      -2385783    ;-.2844076    47 
  658.       dc      -2435084    ;-.2902847    48 
  659.       dc      -2484294    ;-.2961509    49 
  660.       dc      -2533409    ;-.302006    50 
  661.       dc      -2582430    ;-.3078497    51 
  662.       dc      -2631353    ;-.3136818    52 
  663.       dc      -2680177    ;-.319502    53 
  664.       dc      -2728900    ;-.3253103    54 
  665.       dc      -2777521    ;-.3311063    55 
  666.       dc      -2826037    ;-.3368899    56 
  667.       dc      -2874446    ;-.3426607    57 
  668.       dc      -2922747    ;-.3484187    58 
  669.       dc      -2970939    ;-.3541636    59 
  670.       dc      -3019018    ;-.3598951    60 
  671.       dc      -3066984    ;-.3656131    61 
  672.       dc      -3114834    ;-.3713172    62 
  673.       dc      -3162567    ;-.3770075    63 
  674.       dc      -3210181    ;-.3826835    64 
  675.       dc      -3257674    ;-.3883451    65 
  676.       dc      -3305044    ;-.3939921    66 
  677.       dc      -3352290    ;-.3996242    67 
  678.       dc      -3399410    ;-.4052413    68 
  679.       dc      -3446402    ;-.4108432    69 
  680.       dc      -3493264    ;-.4164296    70 
  681.       dc      -3539994    ;-.4220003    71 
  682.       dc      -3586592    ;-.4275551    72 
  683.       dc      -3633054    ;-.4330938    73 
  684.       dc      -3679379    ;-.4386163    74 
  685.       dc      -3725566    ;-.4441222    75 
  686.       dc      -3771613    ;-.4496114    76 
  687.       dc      -3817517    ;-.4550836    77 
  688.       dc      -3863278    ;-.4605387    78 
  689.       dc      -3908894    ;-.4659766    79 
  690.       dc      -3954362    ;-.4713968    80 
  691.       dc      -3999681    ;-.4767993    81 
  692.       dc      -4044850    ;-.4821838    82 
  693.       dc      -4089866    ;-.4875502    83 
  694.       dc      -4134729    ;-.4928983    84 
  695.       dc      -4179436    ;-.4982277    85 
  696.       dc      -4223986    ;-.5035385    86 
  697.       dc      -4268376    ;-.5088302    87 
  698.       dc      -4312606    ;-.5141028    88 
  699.       dc      -4356673    ;-.519356    89 
  700.       dc      -4400577    ;-.5245897    90 
  701.       dc      -4444314    ;-.5298036    91 
  702.       dc      -4487885    ;-.5349976    92 
  703.       dc      -4531286    ;-.5401715    93 
  704.       dc      -4574517    ;-.5453251    94 
  705.       dc      -4617575    ;-.550458    95 
  706.       dc      -4660460    ;-.5555703    96 
  707.       dc      -4703170    ;-.5606616    97 
  708.       dc      -4745702    ;-.5657319    98 
  709.       dc      -4788055    ;-.5707808    99 
  710.       dc      -4830228    ;-.5758082    100 
  711.       dc      -4872220    ;-.580814    101 
  712.       dc      -4914028    ;-.5857979    102 
  713.       dc      -4955651    ;-.5907598    103 
  714.       dc      -4997087    ;-.5956993    104 
  715.       dc      -5038336    ;-.6006166    105 
  716.       dc      -5079394    ;-.6055111    106 
  717.       dc      -5120261    ;-.6103828    107 
  718.       dc      -5160936    ;-.6152316    108 
  719.       dc      -5201416    ;-.6200573    109 
  720.       dc      -5241701    ;-.6248595    110 
  721.       dc      -5281788    ;-.6296383    111 
  722.       dc      -5321676    ;-.6343933    112 
  723.       dc      -5361364    ;-.6391245    113 
  724.       dc      -5400850    ;-.6438316    114 
  725.       dc      -5440133    ;-.6485145    115 
  726.       dc      -5479210    ;-.6531729    116 
  727.       dc      -5518082    ;-.6578068    117 
  728.       dc      -5556746    ;-.6624158    118 
  729.       dc      -5595201    ;-.667    119 
  730.       dc      -5633444    ;-.671559    120 
  731.       dc      -5671476    ;-.6760928    121 
  732.       dc      -5709295    ;-.6806011    122 
  733.       dc      -5746898    ;-.6850837    123 
  734.       dc      -5784285    ;-.6895406    124 
  735.       dc      -5821454    ;-.6939715    125 
  736.       dc      -5858404    ;-.6983763    126 
  737.       dc      -5895133    ;-.7027548    127 
  738.       dc      -5931641    ;-.7071068    128 
  739.       dc      -5967925    ;-.7114322    129 
  740.       dc      -6003985    ;-.7157309    130 
  741.       dc      -6039818    ;-.7200026    131 
  742.       dc      -6075424    ;-.7242471    132 
  743.       dc      -6110802    ;-.7284645    133 
  744.       dc      -6145949    ;-.7326543    134 
  745.       dc      -6180865    ;-.7368166    135 
  746.       dc      -6215548    ;-.7409511    136 
  747.       dc      -6249997    ;-.7450578    137 
  748.       dc      -6284211    ;-.7491364    138 
  749.       dc      -6318188    ;-.7531868    139 
  750.       dc      -6351927    ;-.7572089    140 
  751.       dc      -6385427    ;-.7612024    141 
  752.       dc      -6418687    ;-.7651673    142 
  753.       dc      -6451705    ;-.7691034    143 
  754.       dc      -6484481    ;-.7730105    144 
  755.       dc      -6517012    ;-.7768885    145 
  756.       dc      -6549298    ;-.7807373    146 
  757.       dc      -6581337    ;-.7845566    147 
  758.       dc      -6613128    ;-.7883465    148 
  759.       dc      -6644671    ;-.7921066    149 
  760.       dc      -6675963    ;-.795837    150 
  761.       dc      -6707004    ;-.7995373    151 
  762.       dc      -6737792    ;-.8032075    152 
  763.       dc      -6768327    ;-.8068476    153 
  764.       dc      -6798607    ;-.8104573    154 
  765.       dc      -6828630    ;-.8140363    155 
  766.       dc      -6858397    ;-.8175848    156 
  767.       dc      -6887906    ;-.8211025    157 
  768.       dc      -6917155    ;-.8245893    158 
  769.       dc      -6946144    ;-.8280451    159 
  770.       dc      -6974871    ;-.8314696    160 
  771.       dc      -7003336    ;-.8348629    161 
  772.       dc      -7031537    ;-.8382247    162 
  773.       dc      -7059474    ;-.841555    163 
  774.       dc      -7087145    ;-.8448536    164 
  775.       dc      -7114548    ;-.8481203    165 
  776.       dc      -7141684    ;-.8513552    166 
  777.       dc      -7168551    ;-.854558    167 
  778.       dc      -7195148    ;-.8577286    168 
  779.       dc      -7221475    ;-.860867    169 
  780.       dc      -7247528    ;-.8639728    170 
  781.       dc      -7273310    ;-.8670463    171 
  782.       dc      -7298817    ;-.8700869    172 
  783.       dc      -7324050    ;-.873095    173 
  784.       dc      -7349008    ;-.8760701    174 
  785.       dc      -7373689    ;-.8790124    175 
  786.       dc      -7398091    ;-.8819213    176 
  787.       dc      -7422215    ;-.8847971    177 
  788.       dc      -7446060    ;-.8876396    178 
  789.       dc      -7469624    ;-.8904487    179 
  790.       dc      -7492908    ;-.8932244    180 
  791.       dc      -7515909    ;-.8959664    181 
  792.       dc      -7538627    ;-.8986746    182 
  793.       dc      -7561062    ;-.9013489    183 
  794.       dc      -7583211    ;-.9039893    184 
  795.       dc      -7605075    ;-.9065957    185 
  796.       dc      -7626653    ;-.909168    186 
  797.       dc      -7647944    ;-.9117061    187 
  798.       dc      -7668947    ;-.9142098    188 
  799.       dc      -7689661    ;-.9166791    189 
  800.       dc      -7710085    ;-.9191139    190 
  801.       dc      -7730219    ;-.9215141    191 
  802.       dc      -7750062    ;-.9238796    192 
  803.       dc      -7769613    ;-.9262102    193 
  804.       dc      -7788873    ;-.9285061    194 
  805.       dc      -7807838    ;-.930767    195 
  806.       dc      -7826511    ;-.9329929    196 
  807.       dc      -7844887    ;-.9351836    197 
  808.       dc      -7862969    ;-.9373391    198 
  809.       dc      -7880754    ;-.9394592    199 
  810.       dc      -7898243    ;-.9415441    200 
  811.       dc      -7915434    ;-.9435934    201 
  812.       dc      -7932329    ;-.9456074    202 
  813.       dc      -7948923    ;-.9475856    203 
  814.       dc      -7965219    ;-.9495282    204 
  815.       dc      -7981214    ;-.951435    205 
  816.       dc      -7996910    ;-.9533061    206 
  817.       dc      -8012304    ;-.9551412    207 
  818.       dc      -8027396    ;-.9569404    208 
  819.       dc      -8042187    ;-.9587036    209 
  820.       dc      -8056674    ;-.9604305    210 
  821.       dc      -8070858    ;-.9621214    211 
  822.       dc      -8084739    ;-.9637761    212 
  823.       dc      -8098314    ;-.9653944    213 
  824.       dc      -8111585    ;-.9669764    214 
  825.       dc      -8124551    ;-.9685221    215 
  826.       dc      -8137211    ;-.9700313    216 
  827.       dc      -8149565    ;-.971504    217 
  828.       dc      -8161610    ;-.9729399    218 
  829.       dc      -8173351    ;-.9743395    219 
  830.       dc      -8184782    ;-.9757022    220 
  831.       dc      -8195905    ;-.9770282    221 
  832.       dc      -8206720    ;-.9783174    222 
  833.       dc      -8217226    ;-.9795699    223 
  834.       dc      -8227422    ;-.9807853    224 
  835.       dc      -8237309    ;-.9819639    225 
  836.       dc      -8246885    ;-.9831055    226 
  837.       dc      -8256152    ;-.9842101    227 
  838.       dc      -8265107    ;-.9852777    228 
  839.       dc      -8273751    ;-.9863082    229 
  840.       dc      -8282084    ;-.9873015    230 
  841.       dc      -8290104    ;-.9882576    231 
  842.       dc      -8297813    ;-.9891766    232 
  843.       dc      -8305209    ;-.9900582    233 
  844.       dc      -8312293    ;-.9909027    234 
  845.       dc      -8319063    ;-.9917097    235 
  846.       dc      -8325521    ;-.9924796    236 
  847.       dc      -8331665    ;-.993212    237 
  848.       dc      -8337494    ;-.9939069    238 
  849.       dc      -8343011    ;-.9945646    239 
  850.       dc      -8348213    ;-.9951848    240 
  851.       dc      -8353102    ;-.9957675    241 
  852.       dc      -8357675    ;-.9963126    242 
  853.       dc      -8361934    ;-.9968203    243 
  854.       dc      -8365878    ;-.9972905    244 
  855.       dc      -8369507    ;-.9977231    245 
  856.       dc      -8372820    ;-.9981181    246 
  857.       dc      -8375819    ;-.9984756    247 
  858.       dc      -8378502    ;-.9987954    248 
  859.       dc      -8380870    ;-.9990777    249 
  860.       dc      -8382923    ;-.9993225    250 
  861.       dc      -8384660    ;-.9995296    251 
  862.       dc      -8386081    ;-.9996989    252 
  863.       dc      -8387186    ;-.9998306    253 
  864.       dc      -8387976    ;-.9999248    254 
  865.       dc      -8388449    ;-.9999812    255 
  866.       dc      -8388607    ;-1    256 
  867.       dc      -8388449    ;-.9999812    257 
  868.       dc      -8387975    ;-.9999248    258 
  869.       dc      -8387186    ;-.9998306    259 
  870.       dc      -8386080    ;-.9996988    260 
  871.       dc      -8384660    ;-.9995295    261 
  872.       dc      -8382923    ;-.9993224    262 
  873.       dc      -8380870    ;-.9990777    263 
  874.       dc      -8378502    ;-.9987954    264 
  875.       dc      -8375819    ;-.9984756    265 
  876.       dc      -8372821    ;-.9981182    266 
  877.       dc      -8369507    ;-.9977231    267 
  878.       dc      -8365878    ;-.9972906    268 
  879.       dc      -8361934    ;-.9968204    269 
  880.       dc      -8357674    ;-.9963126    270 
  881.       dc      -8353102    ;-.9957675    271 
  882.       dc      -8348214    ;-.9951848    272 
  883.       dc      -8343011    ;-.9945646    273 
  884.       dc      -8337495    ;-.993907    274 
  885.       dc      -8331664    ;-.9932119    275 
  886.       dc      -8325521    ;-.9924796    276 
  887.       dc      -8319063    ;-.9917098    277 
  888.       dc      -8312292    ;-.9909026    278 
  889.       dc      -8305209    ;-.9900582    279 
  890.       dc      -8297814    ;-.9891766    280 
  891.       dc      -8290104    ;-.9882576    281 
  892.       dc      -8282083    ;-.9873014    282 
  893.       dc      -8273751    ;-.9863081    283 
  894.       dc      -8265107    ;-.9852776    284 
  895.       dc      -8256151    ;-.9842101    285 
  896.       dc      -8246886    ;-.9831056    286 
  897.       dc      -8237309    ;-.9819639    287 
  898.       dc      -8227423    ;-.9807854    288 
  899.       dc      -8217226    ;-.9795698    289 
  900.       dc      -8206720    ;-.9783174    290 
  901.       dc      -8195905    ;-.9770281    291 
  902.       dc      -8184782    ;-.9757022    292 
  903.       dc      -8173350    ;-.9743394    293 
  904.       dc      -8161611    ;-.9729399    294 
  905.       dc      -8149564    ;-.9715039    295 
  906.       dc      -8137212    ;-.9700314    296 
  907.       dc      -8124551    ;-.9685221    297 
  908.       dc      -8111585    ;-.9669764    298 
  909.       dc      -8098315    ;-.9653945    299 
  910.       dc      -8084739    ;-.9637762    300 
  911.       dc      -8070858    ;-.9621214    301 
  912.       dc      -8056674    ;-.9604306    302 
  913.       dc      -8042186    ;-.9587034    303 
  914.       dc      -8027396    ;-.9569404    304 
  915.       dc      -8012303    ;-.9551411    305 
  916.       dc      -7996910    ;-.9533061    306 
  917.       dc      -7981214    ;-.951435    307 
  918.       dc      -7965219    ;-.9495282    308 
  919.       dc      -7948923    ;-.9475856    309 
  920.       dc      -7932328    ;-.9456074    310 
  921.       dc      -7915435    ;-.9435935    311 
  922.       dc      -7898243    ;-.9415441    312 
  923.       dc      -7880754    ;-.9394592    313 
  924.       dc      -7862969    ;-.9373391    314 
  925.       dc      -7844887    ;-.9351835    315 
  926.       dc      -7826510    ;-.9329928    316 
  927.       dc      -7807838    ;-.930767    317 
  928.       dc      -7788872    ;-.9285061    318 
  929.       dc      -7769613    ;-.9262102    319 
  930.       dc      -7750062    ;-.9238795    320 
  931.       dc      -7730219    ;-.9215141    321 
  932.       dc      -7710085    ;-.9191139    322 
  933.       dc      -7689660    ;-.9166791    323 
  934.       dc      -7668946    ;-.9142098    324 
  935.       dc      -7647943    ;-.911706    325 
  936.       dc      -7626653    ;-.9091681    326 
  937.       dc      -7605075    ;-.9065957    327 
  938.       dc      -7583211    ;-.9039893    328 
  939.       dc      -7561061    ;-.9013489    329 
  940.       dc      -7538626    ;-.8986744    330 
  941.       dc      -7515909    ;-.8959663    331 
  942.       dc      -7492907    ;-.8932243    332 
  943.       dc      -7469624    ;-.8904487    333 
  944.       dc      -7446059    ;-.8876396    334 
  945.       dc      -7422214    ;-.8847971    335 
  946.       dc      -7398091    ;-.8819213    336 
  947.       dc      -7373687    ;-.8790122    337 
  948.       dc      -7349007    ;-.8760701    338 
  949.       dc      -7324050    ;-.8730949    339 
  950.       dc      -7298817    ;-.8700869    340 
  951.       dc      -7273310    ;-.8670463    341 
  952.       dc      -7247528    ;-.8639728    342 
  953.       dc      -7221474    ;-.8608669    343 
  954.       dc      -7195148    ;-.8577286    344 
  955.       dc      -7168551    ;-.854558    345 
  956.       dc      -7141684    ;-.8513552    346 
  957.       dc      -7114548    ;-.8481203    347 
  958.       dc      -7087144    ;-.8448535    348 
  959.       dc      -7059473    ;-.8415549    349 
  960.       dc      -7031537    ;-.8382247    350 
  961.       dc      -7003335    ;-.8348628    351 
  962.       dc      -6974872    ;-.8314696    352 
  963.       dc      -6946145    ;-.8280451    353 
  964.       dc      -6917155    ;-.8245893    354 
  965.       dc      -6887906    ;-.8211025    355 
  966.       dc      -6858397    ;-.8175848    356 
  967.       dc      -6828630    ;-.8140363    357 
  968.       dc      -6798607    ;-.8104573    358 
  969.       dc      -6768326    ;-.8068475    359 
  970.       dc      -6737792    ;-.8032075    360 
  971.       dc      -6707003    ;-.7995373    361 
  972.       dc      -6675963    ;-.795837    362 
  973.       dc      -6644670    ;-.7921065    363 
  974.       dc      -6613128    ;-.7883465    364 
  975.       dc      -6581336    ;-.7845565    365 
  976.       dc      -6549297    ;-.7807372    366 
  977.       dc      -6517012    ;-.7768885    367 
  978.       dc      -6484481    ;-.7730105    368 
  979.       dc      -6451705    ;-.7691034    369 
  980.       dc      -6418687    ;-.7651673    370 
  981.       dc      -6385427    ;-.7612024    371 
  982.       dc      -6351927    ;-.7572089    372 
  983.       dc      -6318187    ;-.7531868    373 
  984.       dc      -6284210    ;-.7491363    374 
  985.       dc      -6249996    ;-.7450577    375 
  986.       dc      -6215548    ;-.7409511    376 
  987.       dc      -6180864    ;-.7368165    377 
  988.       dc      -6145948    ;-.7326542    378 
  989.       dc      -6110802    ;-.7284645    379 
  990.       dc      -6075425    ;-.7242472    380 
  991.       dc      -6039818    ;-.7200026    381 
  992.       dc      -6003985    ;-.7157309    382 
  993.       dc      -5967925    ;-.7114322    383 
  994.       dc      -5931641    ;-.7071068    384 
  995.       dc      -5895133    ;-.7027548    385 
  996.       dc      -5858404    ;-.6983763    386 
  997.       dc      -5821454    ;-.6939715    387 
  998.       dc      -5784284    ;-.6895405    388 
  999.       dc      -5746897    ;-.6850836    389 
  1000.       dc      -5709294    ;-.680601    390 
  1001.       dc      -5671475    ;-.6760926    391 
  1002.       dc      -5633443    ;-.6715589    392 
  1003.       dc      -5595200    ;-.6669999    393 
  1004.       dc      -5556745    ;-.6624157    394 
  1005.       dc      -5518082    ;-.6578068    395 
  1006.       dc      -5479211    ;-.653173    396 
  1007.       dc      -5440133    ;-.6485145    397 
  1008.       dc      -5400850    ;-.6438316    398 
  1009.       dc      -5361363    ;-.6391244    399 
  1010.       dc      -5321676    ;-.6343933    400 
  1011.       dc      -5281787    ;-.6296382    401 
  1012.       dc      -5241700    ;-.6248595    402 
  1013.       dc      -5201415    ;-.6200571    403 
  1014.       dc      -5160935    ;-.6152315    404 
  1015.       dc      -5120261    ;-.6103828    405 
  1016.       dc      -5079393    ;-.605511    406 
  1017.       dc      -5038336    ;-.6006166    407 
  1018.       dc      -4997087    ;-.5956993    408 
  1019.       dc      -4955651    ;-.5907598    409 
  1020.       dc      -4914028    ;-.5857979    410 
  1021.       dc      -4872220    ;-.580814    411 
  1022.       dc      -4830228    ;-.5758082    412 
  1023.       dc      -4788055    ;-.5707807    413 
  1024.       dc      -4745702    ;-.5657318    414 
  1025.       dc      -4703169    ;-.5606616    415 
  1026.       dc      -4660459    ;-.5555701    416 
  1027.       dc      -4617575    ;-.5504579    417 
  1028.       dc      -4574516    ;-.5453249    418 
  1029.       dc      -4531285    ;-.5401714    419 
  1030.       dc      -4487884    ;-.5349975    420 
  1031.       dc      -4444313    ;-.5298035    421 
  1032.       dc      -4400575    ;-.5245896    422 
  1033.       dc      -4356673    ;-.519356    423 
  1034.       dc      -4312606    ;-.5141028    424 
  1035.       dc      -4268376    ;-.5088302    425 
  1036.       dc      -4223986    ;-.5035385    426 
  1037.       dc      -4179436    ;-.4982277    427 
  1038.       dc      -4134729    ;-.4928982    428 
  1039.       dc      -4089866    ;-.4875501    429 
  1040.       dc      -4044849    ;-.4821837    430 
  1041.       dc      -3999681    ;-.4767992    431 
  1042.       dc      -3954361    ;-.4713966    432 
  1043.       dc      -3908893    ;-.4659764    433 
  1044.       dc      -3863277    ;-.4605387    434 
  1045.       dc      -3817518    ;-.4550837    435 
  1046.       dc      -3771613    ;-.4496114    436 
  1047.       dc      -3725566    ;-.4441222    437 
  1048.       dc      -3679379    ;-.4386163    438 
  1049.       dc      -3633054    ;-.4330938    439 
  1050.       dc      -3586591    ;-.4275551    440 
  1051.       dc      -3539994    ;-.4220003    441 
  1052.       dc      -3493263    ;-.4164295    442 
  1053.       dc      -3446401    ;-.4108431    443 
  1054.       dc      -3399409    ;-.4052412    444 
  1055.       dc      -3352289    ;-.3996241    445 
  1056.       dc      -3305043    ;-.3939919    446 
  1057.       dc      -3257673    ;-.388345    447 
  1058.       dc      -3210180    ;-.3826833    448 
  1059.       dc      -3162565    ;-.3770073    449 
  1060.       dc      -3114834    ;-.3713173    450 
  1061.       dc      -3066984    ;-.3656131    451 
  1062.       dc      -3019018    ;-.3598951    452 
  1063.       dc      -2970938    ;-.3541635    453 
  1064.       dc      -2922747    ;-.3484187    454 
  1065.       dc      -2874446    ;-.3426607    455 
  1066.       dc      -2826036    ;-.3368898    456 
  1067.       dc      -2777520    ;-.3311062    457 
  1068.       dc      -2728899    ;-.3253102    458 
  1069.       dc      -2680176    ;-.3195019    459 
  1070.       dc      -2631352    ;-.3136816    460 
  1071.       dc      -2582428    ;-.3078495    461 
  1072.       dc      -2533410    ;-.302006    462 
  1073.       dc      -2484294    ;-.296151    463 
  1074.       dc      -2435084    ;-.2902847    464 
  1075.       dc      -2385783    ;-.2844076    465 
  1076.       dc      -2336392    ;-.2785197    466 
  1077.       dc      -2286913    ;-.2726213    467 
  1078.       dc      -2237348    ;-.2667127    468 
  1079.       dc      -2187699    ;-.2607941    469 
  1080.       dc      -2137967    ;-.2548656    470 
  1081.       dc      -2088155    ;-.2489275    471 
  1082.       dc      -2038264    ;-.2429801    472 
  1083.       dc      -1988297    ;-.2370235    473 
  1084.       dc      -1938254    ;-.231058    474 
  1085.       dc      -1888139    ;-.2250838    475 
  1086.       dc      -1837953    ;-.2191011    476 
  1087.       dc      -1787697    ;-.2131101    477 
  1088.       dc      -1737376    ;-.2071114    478 
  1089.       dc      -1686988    ;-.2011046    479 
  1090.       dc      -1636536    ;-.1950903    480 
  1091.       dc      -1586022    ;-.1890687    481 
  1092.       dc      -1535449    ;-.1830399    482 
  1093.       dc      -1484818    ;-.1770042    483 
  1094.       dc      -1434131    ;-.1709618    484 
  1095.       dc      -1383391    ;-.164913    485 
  1096.       dc      -1332598    ;-.158858    486 
  1097.       dc      -1281754    ;-.1527971    487 
  1098.       dc      -1230863    ;-.1467303    488 
  1099.       dc      -1179925    ;-.1406581    489 
  1100.       dc      -1128945    ;-.1345808    490 
  1101.       dc      -1077920    ;-.1284982    491 
  1102.       dc      -1026855    ;-.1224107    492 
  1103.       dc      -975751    ;-.1163186    493 
  1104.       dc      -924611    ;-.1102222    494 
  1105.       dc      -873435    ;-.1041216    495 
  1106.       dc      -822227    ;-9.801709E-02    496 
  1107.       dc      -770988    ;-9.190889E-02    497 
  1108.       dc      -719719    ;-8.579724E-02    498 
  1109.       dc      -668424    ;-7.968235E-02    499 
  1110.       dc      -617103    ;-7.356445E-02    500 
  1111.       dc      -565759    ;-6.744378E-02    501 
  1112.       dc      -514394    ;-6.132059E-02    502 
  1113.       dc      -463010    ;-5.519508E-02    503 
  1114.       dc      -411608    ;-4.906749E-02    504 
  1115.       dc      -360190    ;-4.293806E-02    505 
  1116.       dc      -308761    ;-3.680724E-02    506 
  1117.       dc      -257319    ;-3.067481E-02    507 
  1118.       dc      -205867    ;-2.454121E-02    508 
  1119.       dc      -154407    ;-.0184067    509 
  1120.       dc      -102941    ;-1.227149E-02    510 
  1121.       dc      -51471    ;-6.135815E-03    511 
  1122.       endm
  1123.     page    132,66,2,2
  1124. ditfft    macro    points,passes,data,twiddle
  1125. ;
  1126. ; Radix 2 Decimation in Time In-Place Fast Fourier Transform Routine
  1127. ;
  1128. ;    Complex input and output data
  1129. ;        Real data in X memory
  1130. ;        Imaginary data in Y memory
  1131. ;    Normally ordered input data
  1132. ;    Bit reversed output data
  1133. ;    Twiddle factor lookup table
  1134. ;        Cosine values in X memory
  1135. ;        -Sine values in Y memory
  1136. ;
  1137. ; Macro Call - ditfft   points,passes,data,twiddle
  1138. ;
  1139. ;    points     number of points (4-32768, power of 2)
  1140. ;    passes     number of fft passes (log2 points)
  1141. ;    data       start of data buffer
  1142. ;    twiddle    start of sine/cosine table
  1143. ;
  1144. ; Alters Data ALU Registers
  1145. ;    x1    x0    y1    y0
  1146. ;    a2    a1    a0    a
  1147. ;    b2    b1    b0    b
  1148. ;
  1149. ; Alters Address Registers
  1150. ;    r0    n0    m0
  1151. ;    r1    n1    m1
  1152. ;        n2
  1153. ;
  1154. ;    r4    n4    m4
  1155. ;    r5    n5    m5
  1156. ;    r6    n6    m6
  1157. ;
  1158. ; Alters Program Control Registers
  1159. ;    pc    sr
  1160. ;
  1161. ; Uses 6 locations on System Stack
  1162. ;
  1163. ; Authors - Kevin Kloker and Garth Hillman
  1164. ; Latest Revision - Jan.  20, 1986
  1165. ;
  1166.     move     #points,n0    ;initialize butterflies per group
  1167.     move    #1,n2        ;initialize groups per pass
  1168.     move    #points/4,n6    ;initialize twiddle offset
  1169.     move    #-1,m0        ;initialize address modifiers
  1170.     move    m0,m1        ;for linear addressing
  1171.     move    m0,m4
  1172.     move    m0,m5
  1173.     move    #0,m6        ;initialize twiddle factor address modifier
  1174.                 ;for reverse carry (bit reversed) addressing
  1175. ;
  1176. ; Do all FFT passes but last pass
  1177. ;
  1178.     do    #passes-1,_end_pass
  1179.     move    n0,a1        ;divide butterflies per group by two
  1180.     lsr    a    #data,r0    ;and initialize A input pointer
  1181.     move    a1,n0        ;update butterflies per group
  1182.     move    r0,r4        ;initialize A output pointer
  1183.     lua    (r0)+n0,r1    ;initialize B input pointer
  1184.     lua    (r1)-,r5    ;initialize B output pointer
  1185.     move    #twiddle,r6    ;initialize twiddle factor pointer
  1186.     move    n0,n1        ;initialize pointer offsets
  1187.     move    n0,n4
  1188.     move    n0,n5
  1189.  
  1190.     do    n2,_end_grp
  1191.     move    x:(r1),x1    y:(r6),y0    ;lookup -sine value
  1192.     move    x:(r5),a    y:(r0),b    ;dummy load of a
  1193.     move    x:(r6)+n6,x0        ;lookup cosine value
  1194.  
  1195.  
  1196.     do    n0,_end_bfy
  1197.     mac    x1,y0,b                y:(r1)+,y1    ;Radix 2 DIT butterfly kernel
  1198.     macr    x0,y1,b        a,x:(r5)+    y:(r0),a    ;with constant twiddle factor
  1199.     subl    b,a        x:(r0),b    b,y:(r4)
  1200.     mac    x1,x0,b        x:(r0)+,a    a,y:(r5)
  1201.     macr    -y1,y0,b    x:(r1),x1
  1202.     subl    b,a        b,x:(r4)+    y:(r0),b
  1203. _end_bfy
  1204.     move    a,x:(r5)+n5    y:(r1)+n1,y1    ;dummy load of x1 and y1
  1205.     move    x:(r0)+n0,x1    y:(r4)+n4,y1
  1206. _end_grp
  1207.     move    n2,a1
  1208.     lsl    a        ;multiply groups per pass by two
  1209.     move    a1,n2        ;update groups per pass
  1210. _end_pass
  1211. ;
  1212. ; Do last FFT pass
  1213. ;
  1214.     move    #data,r0    ;initialize A input pointer
  1215.     move    r0,r4        ;initialize A output pointer
  1216.     lua    (r0)+,r1    ;initialize B input pointer
  1217.     lua    (r1)-n1,r5    ;initialize B output pointer
  1218.     move    #twiddle,r6    ;initialize twiddle factor pointer
  1219.     move    x:(r5),a    y:(r0),b    ;dummy load of a
  1220.     move    x:(r1),x1    y:(r6),y0
  1221.  
  1222.     do    n2,_lastpass
  1223.     mac    x1,y0,b    x:(r6)+n6,x0    y:(r1)+n1,y1    ;Radix 2 DIT butterfly kernel
  1224.     macr    x0,y1,b    a,x:(r5)+n5    y:(r0),a    ;with one butterfly per group
  1225.     subl    b,a    x:(r0),b    b,y:(r4)
  1226.     mac    x1,x0,b    x:(r0)+n0,a    a,y:(r5)
  1227.     macr    -y1,y0,b    x:(r1),x1    y:(r6),y0
  1228.     subl    b,a        b,x:(r4)+n4    y:(r0),b
  1229. _lastpass
  1230.     move    a,x:(r5)+n5
  1231.     endm
  1232.     page    132,66,2,2
  1233. smallfft     macro   points,passes,data,twiddle
  1234. ;
  1235. ; Radix 2 Decimation in Time In-Place Fast Fourier Transform Routine
  1236. ;
  1237. ;    Complex input and output data
  1238. ;        Real data in X memory
  1239. ;        Imaginary data in Y memory
  1240. ;    Normally ordered input data
  1241. ;    Bit reversed output data
  1242. ;    Twiddle factors lookup table
  1243. ;        Cosine value in X memory
  1244. ;        -Sine value in Y memory
  1245. ;
  1246. ; Macro Call - smallfft  points,passes,data,twiddle
  1247. ;
  1248. ;    points     number of points (4-32768, power of 2)
  1249. ;    passes     number of fft passes (log2 points)
  1250. ;    data       start of data buffer
  1251. ;    twiddle    start of sine/cosine table
  1252. ;
  1253. ; Alters Data ALU Registers
  1254. ;    x1    x0    y1    y0
  1255. ;    a2    a1    a0    a
  1256. ;    b2    b1    b0    b
  1257. ;
  1258. ; Alters Address Registers
  1259. ;    r0    n0    m0
  1260. ;    r1    n1    m1
  1261. ;        n2
  1262. ;
  1263. ;    r4    n4    m4
  1264. ;    r5    n5    m5
  1265. ;    r6    n6    m6
  1266. ;
  1267. ; Alters Program Control Registers
  1268. ;    pc    sr
  1269. ;
  1270. ; Uses 6 locations on System Stack
  1271. ;
  1272. ; Authors - Kevin Kloker and Garth Hillman
  1273. ; Latest Revision - Jan.  20, 1986
  1274. ;
  1275.     page
  1276.     move     #points,n0    ;initialize butterflies per group
  1277.     move    #1,n2        ;initialize groups per pass
  1278.     move    #points/4,n6    ;initialize twiddle offset
  1279.     move    #-1,m0        ;initialize address modifiers
  1280.     move    m0,m1        ;for linear addressing
  1281.     move    m0,m4
  1282.     move    m0,m5
  1283.     move    #0,m6        ;initialize twiddle factor address modifier
  1284.                 ;for reverse carry (bit reversed) addressing
  1285. ;
  1286. ; Perform all FFT passes with triple nested DO loop
  1287. ;
  1288.     do    #passes,_end_pass
  1289.     move    n0,a1        ;divide butterflies per group by two
  1290.     lsr    a    #data,r0    ;and initialize A input pointer
  1291.     move    a1,n0        ;update butterflies per group
  1292.     move    r0,r4        ;initialize A output pointer
  1293.     lua    (r0)+n0,r1    ;initialize B input pointer
  1294.     lua    (r1)-,r5    ;initialize B output pointer
  1295.     move    #twiddle,r6    ;initialize twiddle factor pointer
  1296.     move    n0,n1        ;initialize pointer offsets
  1297.     move    n0,n4
  1298.     move    n0,n5
  1299.  
  1300.     do    n2,_end_grp
  1301.     move    x:(r1),x1    y:(r6),y0    ;lookup -sine value
  1302.     move    x:(r5),a    y:(r0),b    ;dummy load of a
  1303.     move    x:(r6)+n6,x0        ;lookup cosine value
  1304.  
  1305.  
  1306.     do    n0,_end_bfy
  1307.     mac    x1,y0,b                y:(r1)+,y1    ;Radix 2 DIT butterfly kernel
  1308.     macr    x0,y1,b        a,x:(r5)+    y:(r0),a    ;with constant twiddle factor
  1309.     subl    b,a        x:(r0),b    b,y:(r4)
  1310.     mac    x1,x0,b        x:(r0)+,a    a,y:(r5)
  1311.     macr    -y1,y0,b    x:(r1),x1
  1312.     subl    b,a        b,x:(r4)+    y:(r0),b
  1313. _end_bfy
  1314.     move    a,x:(r5)+n5    y:(r1)+n1,y1    ;dummy load of x1 and y1
  1315.     move    x:(r0)+n0,x1    y:(r4)+n4,y1
  1316. _end_grp
  1317.     move    n2,a1
  1318.     lsl    a        ;multiply groups per pass by two
  1319.     move    a1,n2        ;update groups per pass
  1320. _end_pass
  1321.     endm
  1322.